(server-process-filter): Run pore/post-comment-hook

before/after visiting the file.

diff --git a/lisp/server.el b/lisp/server.el
index a9aaa69e71275a5127ea8bc3c09b34483567716c..ec7fdafb8511e8f0d9ca0bdf2c0b2018dcd9c3f5 100644 (file)
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -284,7 +284,9 @@ Prefix arg means just kill any existing server communications subprocess."
                                  files))
                      (setq lineno 1)
                      (setq columnno 0))))))
+             (run-hooks 'pre-command-hook)
              (server-visit-files files client nowait)
+             (run-hooks 'post-command-hook)
              ;; CLIENT is now a list (CLIENTNUM BUFFERS...)
              (if (null (cdr client))
                  ;; This client is empty; get rid of it immediately.